home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Mac / Mod / CodeFragmentMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-04-06  |  4.0 KB  |  87 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. MODULE MacCodeFragmentMgr;
  18. IMPORT SYSTEM, MacTypes, MacFileMgr;
  19. CONST
  20.     CODE = 1;
  21.     gestaltCFMAttr* = 063667267H; (* "cfrg" *)
  22.     gestaltCFMPresent* = {0};
  23.     kPowerPCArch* = 070777063H; (* "pwpc" *)
  24.     kMotorola68KArch* = 06D36386BH; (* "m68k" *)
  25.     kAnyArchType* = 03F3F3F3FH; (* "????" *)
  26.     kLoadLib* = {0};
  27.     kFindLib* = {1};
  28.     kLoadNewCopy* = {2, 0};
  29.     kCodeSymbol* = 0X;
  30.     kDataSymbol* = 1X;
  31.     kTVectSymbol* = 2X;
  32.     ConnectionID* = LONGINT;
  33.     LoadFlags* = SET;
  34.     SymClass* = CHAR;
  35.     FragmentLocator* = RECORD (MacTypes.Data)
  36.         where*: LONGINT;
  37.     END;
  38.     MemFragment* = RECORD (FragmentLocator)
  39.         address*: MacTypes.Ptr;
  40.         length*: LONGINT;
  41.         inPlace*: BOOLEAN;
  42.     END;
  43.     DiskFragment* = RECORD (FragmentLocator)
  44.         fileSpec*: MacFileMgr.FSSpecPtr;
  45.         offset*: LONGINT;
  46.         length*: LONGINT;
  47.     END;
  48.     SegmentedFragment* = RECORD (FragmentLocator)
  49.         fileSpec*: MacFileMgr.FSSpecPtr;
  50.         rsrcType*: MacTypes.OSType;
  51.         rsrcID*: INTEGER;
  52.     END;
  53.     InitBlockPtr* = POINTER TO InitBlock;
  54.     InitBlock* = RECORD (MacTypes.Data)
  55.         contextID*: LONGINT;
  56.         closureID*: LONGINT;
  57.         connectionID*: LONGINT;
  58.         fragLocator*: DiskFragment;
  59.         libName*: MacTypes.Ptr;
  60.         reserved4a*: LONGINT;
  61.         reserved4b*: LONGINT;
  62.         reserved4c*: LONGINT;
  63.         reserved4d*: LONGINT;
  64.     END;
  65. (* Loading Fragments *)
  66. PROCEDURE [CODE] GetDiskFragment*(fileSpec: MacFileMgr.FSSpecPtr; offset: LONGINT; length: LONGINT; fragName: MacTypes.Str63; findFlags: LoadFlags; VAR connID: ConnectionID; VAR mainAddr: MacTypes.Ptr; VAR errName: MacTypes.Str255): MacTypes.OSErr 03FH, 03CH, 000H, 002H, 0AAH, 05AH;
  67. PROCEDURE [CODE] GetMemFragment*(memAdr: MacTypes.Ptr; length: LONGINT; fragName: MacTypes.Str63; findFlags: LoadFlags; VAR connID: ConnectionID; VAR mainAddr: MacTypes.Ptr; VAR errname: MacTypes.Str255): MacTypes.OSErr 03FH, 03CH, 000H, 003H, 0AAH, 05AH;
  68. PROCEDURE [CODE] GetSharedLibrary*(libName: MacTypes.Str63; archType: MacTypes.OSType; findFlags: LoadFlags; VAR connID: ConnectionID; VAR mainAddr: MacTypes.Ptr; VAR errName: MacTypes.Str255): MacTypes.OSErr 03FH, 03CH, 000H, 001H, 0AAH, 05AH;
  69. (* Unloading Fragments *)
  70. PROCEDURE [CODE] CloseConnection*(VAR connID: ConnectionID): MacTypes.OSErr 03FH, 03CH, 000H, 004H, 0AAH, 05AH;
  71. (* Finding Symbols *)
  72. PROCEDURE [CODE] FindSymbol*(connID: ConnectionID; symName: MacTypes.Str255; VAR symAddr: MacTypes.Ptr; VAR symClass: SymClass): MacTypes.OSErr 03FH, 03CH, 000H, 005H, 0AAH, 05AH;
  73. PROCEDURE [CODE] CountSymbols*(connID: ConnectionID; VAR symCount: LONGINT): MacTypes.OSErr 03FH, 03CH, 000H, 006H, 0AAH, 05AH;
  74. PROCEDURE [CODE] GetIndSymbol*(connID: ConnectionID; symIndex: LONGINT; VAR symName: MacTypes.Str255; VAR symAddr: MacTypes.Ptr; VAR symClass: SymClass): MacTypes.OSErr 03FH, 03CH, 000H, 007H, 0AAH, 05AH;
  75. END MacCodeFragmentMgr.
  76. TextControllers.StdCtrlDesc
  77. TextControllers.ControllerDesc
  78. Containers.ControllerDesc
  79. Controllers.ControllerDesc
  80. TextRulers.StdRulerDesc
  81. TextRulers.RulerDesc
  82. TextRulers.StdStyleDesc
  83. TextRulers.StyleDesc
  84. TextRulers.AttributesDesc
  85. Geneva
  86. Documents.ControllerDesc
  87.